home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_VB / VB_7DAYS.ZIP;1 / SETCRSR.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-02-17  |  465 b   |  21 lines
  1. ' SetCursor
  2. '
  3. ' Use code like this to preset the mouse pointer position
  4. ' when you pop a form up on the screen
  5.  
  6. Type POINTAPI
  7.   X As Integer
  8.   Y As Integer
  9. End Type
  10.  
  11. Sub Text1_LostFocus ()
  12.   Dim P As POINTAPI
  13.   SaveMode% = Form1.ScaleMode
  14.   Form1.ScaleMode = 3
  15.   P.X = Command1.Left + (Command1.Width) / 2
  16.   P.Y = Command1.Top + (Command1.Height) / 2
  17.   ClientToScreen Form1.hWnd, P
  18.   SetCursorPos P.X, P.Y
  19.   Form1.ScaleMode = SaveMode%
  20. End Sub
  21.